home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1992 June: ROMin Holiday / ADC Developer CD (1992-06) (''ROMin Holiday'')_iso / Developer Connection - 06-1992.iso / Tools & Apps / Networking & Communications / Serial NB Sample Driver / Task / inc / asm.a next >
Encoding:
Text File  |  1991-11-15  |  1.3 KB  |  59 lines  |  [TEXT/MPS ]
  1. *********************************************************************************
  2. *                                                                                *
  3. *    asm.a - Misc. assembly language routines to make life a bit easier.            *
  4. *                                                                                *
  5. *    Richard W. Mincher.  February 20, 1990.                                        *
  6. *                                                                                *
  7. *    Copyright © 1990 Apple Computer, Inc.  All rights reserved.                    *
  8. *                                                                                *
  9. *********************************************************************************
  10.         
  11.         
  12.         Case    Obj
  13.         Space    4
  14. Stuff    Proc
  15.         Export    _tbeint:Code
  16.         Export    _escint:Code
  17.         Export    _rcaint:Code
  18.         Export    _srcint:Code
  19.         Export    SaveA5:Code
  20.  
  21.         Import    tbeint:Code
  22.         Import    escint:Code
  23.         Import    rcaint:Code
  24.         Import    srcint:Code
  25.                 
  26. _tbeint    MoveM.L    A0-A2/A5/D0-D2,-(SP)
  27.         Move.L    myA5,A5
  28.         Jsr        tbeint
  29.         Move.B    #$38,SCCControl
  30.         MoveM.L    (SP)+,A0-A2/A5/D0-D2
  31.         Rte
  32.         Space    4
  33. _escint    MoveM.L    A0-A2/A5/D0-D2,-(SP)
  34.         Move.L    myA5,A5
  35.         Jsr        escint
  36.         Move.B    #$38,SCCControl
  37.         MoveM.L    (SP)+,A0-A2/A5/D0-D2
  38.         Rte
  39.         Space    4
  40. _rcaint    MoveM.L    A0-A2/A5/D0-D2,-(SP)
  41.         Move.L    myA5,A5
  42.         Jsr        rcaint
  43.         Move.B    #$38,SCCControl
  44.         MoveM.L    (SP)+,A0-A2/A5/D0-D2
  45.         Rte
  46.         Space    4
  47. _srcint    MoveM.L    A0-A2/A5/D0-D2,-(SP)
  48.         Move.L    myA5,A5
  49.         Jsr        srcint
  50.         Move.B    #$38,SCCControl
  51.         MoveM.L    (SP)+,A0-A2/A5/D0-D2
  52.         Rte
  53.         Space    4
  54. SaveA5    Lea        myA5,A0
  55.         Move.L    A5,(A0)
  56.         Rts
  57. myA5    DC.L    0
  58.         EndProc
  59.